home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / utility / 252 / gemsrc / print.mod < prev    next >
Text File  |  1988-02-13  |  537b  |  27 lines
  1. IMPLEMENTATION MODULE Print;
  2.  
  3.    IMPORT GEMDOS;
  4.  
  5.    (********************************************************************)
  6.  
  7.    PROCEDURE String ( VAR Item : ARRAY OF CHAR );
  8.  
  9.    CONST
  10.       CR    = 15C;
  11.       LF    = 12C;
  12.  
  13.    VAR Index : CARDINAL;
  14.  
  15.    BEGIN
  16.       Index := 0;
  17.       WHILE ((Index <= HIGH (Item)) AND (Item[Index] <> CHR (0))) DO
  18.          GEMDOS.PrnOut ( Item[Index] );
  19.          INC (Index);
  20.       END (* DO *);
  21.       GEMDOS.PrnOut ( CR );
  22.       GEMDOS.PrnOut ( LF );
  23.    END String;
  24.  
  25. END Print.
  26.  
  27.